Imports Colegio
Public Class FrmModificarTituloLic
    Dim result As MsgBoxResult
    Private Sub BtnBuscarTitulo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBuscarTitulo.Click
        TxtTitulo.ReadOnly = True
        DgTitulos.Rows.Clear()
        Dim licencias As New List(Of Entidades.ELicencia)
        Dim licenciasneg As New Negocios.NLicencias
        licencias = licenciasneg.BuscarTitulodeLicencia()

        If licencias.Count = 0 Then
            result = MsgBox("Lo siento, todavia no hay titulos cargados, desea cargar", MsgBoxStyle.OkCancel)
            If result = MsgBoxResult.Ok Then
                TxtTitulo.ReadOnly = False
                TxtTitulo.Focus()
                DgTitulos.Visible = False
            End If
        Else
            DgTitulos.Visible = True
            For Each licencia As Entidades.ELicencia In licencias
                DgTitulos.Rows.Add(licencia.Titulo)
            Next

        End If
    End Sub

    Private Sub DgTitulos_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DgTitulos.CellClick
        result = MsgBox("Desea realmente seleccionar este titulo?, si no es asi toque cancel y seleccione otro", MsgBoxStyle.OkCancel)
        If result = MsgBoxResult.Ok Then
            TxtTitulo.Text = DgTitulos.Rows(e.RowIndex).Cells("titulo").Value
            DgTitulos.Visible = False

        Else
            DgTitulos.Visible = False
            TxtTitulo.Focus()
            TxtTitulo.ReadOnly = False
            Exit Sub
        End If
    End Sub

    Private Sub BtnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGuardar.Click
        Dim licencia As New Entidades.ELicencia
        Dim reemplazo As String
        Dim licenciasneg As New Negocios.NLicencias
        Dim band As Boolean
        licencia.Titulo = TxtTitulo.Text
        reemplazo = TxtTituloRem.Text
        Try
            band = licenciasneg.modificarTituloLic(licencia, reemplazo)
            If band Then
                MsgBox("Modificacion Exitosa", MsgBoxStyle.Information)
                FrmModificarLicencia.TxtTitulo.Text = reemplazo
                FrmModificarLicencia.LblT.Text = reemplazo
            End If
        Catch ex As Exception
            MsgBox("Modificacion Fallida. " + ex.Message, MsgBoxStyle.Exclamation)
        End Try
        
        limpiar()
    End Sub
    Private Sub limpiar()
        TxtTitulo.Text = ""
        TxtTituloRem.Text = ""
    End Sub

    Private Sub BtnCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCerrar.Click
        Close()
    End Sub
End Class